home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 5 / Amiga Plus Sonderheft 1996 #5.iso / programme / easyvideo / rexx / test_ev.rexx < prev   
OS/2 REXX Batch file  |  1995-09-14  |  552b  |  30 lines

  1. /* Interaktiver Test für EasyVideo 
  2.     für Start aus EASYVIDEO
  3.    (c) Jörg Trahm
  4. */
  5.  
  6. call open con,"CON:10/10/320/100/EasyVideo Test"
  7. parse arg PortName
  8. address(PortName)
  9. call writeln con, "Ende mit EXIT"
  10. options prompt "EVideo > "
  11. options results
  12. start:
  13. signal on syntax
  14. signal on error
  15. do forever
  16.  call writech con,"EVideo > "
  17.  input=readln(con)
  18.  interpret input
  19.  call writeln con, "Ergebnis:"result":"
  20. end
  21.  
  22. syntax:
  23.  call writeln con, "Fehler" rc "in Zeile" sig1":" errortext(rc)
  24. signal start
  25.  
  26. error:
  27.  call writeln con, "Rückkehrcode:"rc
  28. signal start
  29.  
  30.